﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<%
dim txt,lid,yc,rsstr,name
txt=request("txt")
lid=qingtian.nid
name=qingtian.name(lid)
yc=request("yc")
if yc="" then yc=0
yc=clng(yc)
if txt="" then response.redirect "add.asp?cc="&cc&"&ve="&ve&""
kword=split("fuck,他妈的,我靠,我操,去死,我叼,com,cn,net,hk",",")
function keyWord(s)
dim KwCount
KwCount=0
	for kwi=0 to ubound(kword)
		KwCount = KwCount + instr(s,kword(kwi))
	next
	keyWord=KwCount
end function
if keyWord(txt)>0 then response.redirect "add.asp?cc="&cc&"&ve="&ve&""

set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from [l] order by ID desc"
rs.open rsstr,liao,1,3
if not (rs.bof and rs.eof)  then		
if rs("txt")=txt then eer="请不要重复发布，<br/>正在返回江湖发布！<br/>"
end if
if eer="" then
rs.addnew
rs("txt")=txt
rs("lid")=lid
rs("name")=name
rs("yc")=yc
rs.update
end if
rs.close
set rs=Nothing
%>

<card title="江湖消息" ontimer="index.asp?cc=<%=cc%>&amp;ve=<%=ve%>">
<timer value="5"/>
<p>
<%if eer="" then%>
信息发布成功，<br/>
发布成功<br/>
正在返回........<br/>
<%else%>
<%=eer%>
<%end if%>
----------<br/>
<a href="index.asp?cc=<%=cc%>&amp;ve=<%=ve%>">江湖首页</a><br/>
<%qingtian.shuchu%>